NY Times US States Data Analysis
db <- dbConnect(SQLite(), dbname="../COVIDDB/CORVID.sqlite3")
shutdown <- dbGetQuery(db, "SELECT * from shutdown;")
sd <- shutdown %>% ggplot() + geom_col(aes(x=Delay,y=reorder(State,Delay))) +
labs(title="Elasped Days from First Confirmed Case(WA)",
x="Delayed in Days",y="US States(and DC",
caption ="(Shutdown Dates = https://www.nbcnews.com)")
ggplotly(sd)
## Warning: Removed 5 rows containing missing values (position_stack).
Summary of Cases,Deaths and Death Rate by Date
Summary of Cases and Deaths by State
Summary of Ohio Deaths and Cases